home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Demos / Bowers Development / AppMaker 2.1.sit / AppMaker 2.1 / Examples / TCL / Gadgets / AboutDialog.cp / AboutDialog.cp
Encoding:
Text File  |  1997-02-26  |  1.9 KB  |  89 lines  |  [TEXT/KAHL]
  1. /* AboutDialog.cp -- Modal dialog */
  2. /* Created 2/25/97 10:03 PM by AppMaker */
  3.  
  4. /*    This module overrides the AppMaker-generated code in zAboutDialog.        */
  5. /*    It provides a place for you to add your own code and still be able to    */
  6. /*    generate code for new changes to the user interface.  This module will    */
  7. /*    not be regenerated by AppMaker unless you delete it.  Its superclass,    */
  8. /*    zAboutDialog, may be regenerated to handle user interface changes        */
  9. /*    without losing your hand-coded changes to this module.                    */
  10.  
  11. #include <Commands.h>
  12. #include <Global.h>
  13. #include <CBartender.h>
  14. #include <CDirectorOwner.h>
  15. #include <TBUtilities.h>
  16. #include <CAMButton.h>
  17. #include <CAMStaticText.h>
  18. #include "CmdCodes.h"
  19. #include "AboutDialog.h"
  20.  
  21. extern    CBartender        *gBartender;    /* The menu handling object */
  22.  
  23.  
  24. /*----------*/
  25. void    DoAboutDialog    (CDirectorOwner        *aSupervisor)
  26. {
  27.     CAboutDialog    *dialog;
  28.     long            dismisser;
  29.  
  30.     dialog = NULL;
  31.     TRY {
  32.         dialog = new CAboutDialog;
  33.         dialog->IAboutDialog (aSupervisor);
  34.  
  35.         /* initialize dialog panes */
  36.  
  37.         dialog->BeginDialog ();
  38.         dismisser = dialog->DoModalDialog (cmdOK);    
  39.  
  40.         if (dismisser == cmdOK) {
  41.             /* extract values from dialog panes */
  42.         }
  43.  
  44.         ForgetObject (dialog);
  45.     } CATCH {
  46.         ForgetObject (dialog);
  47.     } ENDTRY;
  48.  
  49. } /* DoAboutDialog */
  50.  
  51. /*----------*/
  52. void    CAboutDialog::IAboutDialog    (CDirectorOwner        *aSupervisor)
  53. {
  54.     inherited::IZAboutDialog (aSupervisor);
  55.  
  56.     // any additional initialization for your dialog
  57.  
  58. } /* IAboutDialog */
  59.  
  60. /*----------*/
  61. void    CAboutDialog::UpdateMenus    (void)
  62. {
  63.     inherited::UpdateMenus ();
  64.  
  65. } /* UpdateMenus */
  66.  
  67. /*----------*/
  68. void    CAboutDialog::DoCommand        (long        theCommand)
  69. {
  70.     switch (theCommand) {
  71.  
  72.         default:
  73.                 inherited::DoCommand (theCommand);
  74.             break;
  75.     } /* switch */
  76.  
  77. } /* DoCommand */
  78.  
  79. /*----------*/
  80. void    CAboutDialog::ProviderChanged    (CCollaborator    *aProvider,
  81.                                          long            reason,
  82.                                          void*            info)
  83.  
  84. {
  85.  
  86. } /* ProviderChanged */
  87.  
  88. /* AboutDialog */
  89.